home *** CD-ROM | disk | FTP | other *** search
/ PC Media 23 / PC MEDIA CD23.iso / share / prog / dclib500 / codifica.int < prev    next >
Encoding:
Text File  |  1994-03-26  |  561 b   |  27 lines
  1. Unit Codifica;
  2.  
  3. (* Librería Codifica Versión 1.10 por David Carrero Fernández-Baillo *)
  4. (* 13/12/1993 - ShareWare *)
  5.  
  6. Interface
  7.  
  8.     Uses Dos, Crt;
  9.  
  10.     Const
  11.          CodificaVersion = $0110;
  12.  
  13.     Var
  14.        UserKey     : longint;
  15.  
  16.     Function VersionCodificar : real;
  17.     Function CodiSt(Texto: String; TipoC: Integer): string;
  18.     Function DeCodiSt(Texto: String; TipoC: Integer): string;
  19.     Function Encriptar_Desencriptar(ch:char):char;
  20.     Function EyDCadena(Cadena:string; clave: Longint):string;
  21.  
  22. Implementation
  23.  
  24. {...}
  25.  
  26. end.
  27.